Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/ISSUE07/INTERNAL/TESTFORM.DFM/TESTFORM.txt

Text File | 1996-01-28 | 5.5 KB | 236 lines

object Form1: TForm1
  Left = 305
  Top = 184
  BorderStyle = bsDialog
  Caption = 'Testbed Program for DOSInfo Unit'
  ClientHeight = 147
  ClientWidth = 474
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  TextHeight = 15
  object TabSet1: TTabSet
    Left = 0
    Top = 126
    Width = 474
    Height = 21
    Align = alBottom
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OnChange = TabSet1Change
  end
  object Notebook1: TNotebook
    Left = 0
    Top = 0
    Width = 474
    Height = 126
    Align = alClient
    PageIndex = 2
    TabOrder = 1
    object TPage
      Left = 0
      Top = 0
      Caption = 'Floppies'
      object GroupBox1: TGroupBox
        Left = 10
        Top = 10
        Width = 447
        Height = 101
        Caption = ' Floppy Disk Info Test  '
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label1: TLabel
          Left = 13
          Top = 24
          Width = 171
          Height = 15
          Caption = 'Number of Floppy Disk Drives: '
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label2: TLabel
          Left = 13
          Top = 48
          Width = 140
          Height = 15
          Caption = 'First Floppy Disk Drive is:'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label3: TLabel
          Left = 13
          Top = 72
          Width = 158
          Height = 15
          Caption = 'Second Floppy Disk Drive is:'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object FlopTypeB: TLabel
          Left = 189
          Top = 72
          Width = 58
          Height = 15
          Caption = 'FlopTypeB'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object FlopTypeA: TLabel
          Left = 189
          Top = 48
          Width = 57
          Height = 15
          Caption = 'FlopTypeA'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object FlopCount: TLabel
          Left = 189
          Top = 24
          Width = 57
          Height = 15
          Caption = 'FlopCount'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Volume Labels'
      object GroupBox2: TGroupBox
        Left = 10
        Top = 10
        Width = 447
        Height = 99
        Caption = ' Volume Label Test '
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label4: TLabel
          Left = 13
          Top = 28
          Width = 78
          Height = 15
          Caption = 'Current Drive:'
        end
        object Label5: TLabel
          Left = 13
          Top = 62
          Width = 80
          Height = 15
          Caption = 'Volume Label:'
        end
        object DriveList: TComboBox
          Left = 108
          Top = 27
          Width = 84
          Height = 22
          Style = csDropDownList
          ItemHeight = 15
          TabOrder = 0
          OnChange = DriveListChange
        end
        object TheLabel: TEdit
          Left = 108
          Top = 60
          Width = 121
          Height = 22
          CharCase = ecUpperCase
          MaxLength = 11
          TabOrder = 1
          Text = 'THELABEL'
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Serial Numbers'
      object GroupBox3: TGroupBox
        Left = 10
        Top = 10
        Width = 447
        Height = 99
        Caption = ' Serial Number Test '
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label6: TLabel
          Left = 13
          Top = 28
          Width = 78
          Height = 15
          Caption = 'Current Drive:'
        end
        object Label7: TLabel
          Left = 13
          Top = 62
          Width = 84
          Height = 15
          Caption = 'Serial Number:'
        end
        object TheSerialNum: TLabel
          Left = 108
          Top = 62
          Width = 80
          Height = 15
          Caption = 'TheSerialNum'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object DriveList2: TComboBox
          Left = 108
          Top = 27
          Width = 84
          Height = 22
          Style = csDropDownList
          ItemHeight = 15
          TabOrder = 0
          OnChange = DriveList2Change
        end
      end
    end
  end
end